Imports System.IO

Public Class frmUtilityAbout
    Private Sub frmUtilityAbout_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Icon = System.Drawing.Icon.FromHandle(CType(mdiMain.imgMDIForm.Images(18), Bitmap).GetHicon())
        Me.Text = "About WebPlusMed"
        lblSoftware.Text = "WebPlusMed"

        lblVersion.Text = "Version " & gamsWebPlusMed.Version.ToString

        If gbIsLicensed = True Then
            lblLicense.Text = "THIS PRODUCT IS LICENSED TO "
            lblLicensee.Text = TDecrypt(GetRegistryValue("Licensee"))
            lblLicenseNo.Text = GetRegistryValue("LicenseKey")
        Else
            lblLicense.Text = ""
            lblLicensee.Text = "You are running an evaluation copy of " & gstrSoftware & " software."
            lblLicenseNo.Text = gstrLicenseInfo
        End If
    End Sub

    Private Sub lblMailTo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblMailTo.Click
        Dim Search As String
        Dim BrowserString As String
        Dim LaunchBrowser As String

        BrowserString = "rundll32.exe url.dll,FileProtocolHandler "
        LaunchBrowser = BrowserString + "mailto:hits@hitsindia.com"
        Search = Shell(LaunchBrowser, 0)
    End Sub

    Private Sub lblWebAddress_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lblWebAddress.LinkClicked
        System.Diagnostics.Process.Start("http://www.hitsindia.com/")
    End Sub

    Private Sub btnSystemInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSystemInfo.Click
        Process.Start("MSINFO32.EXE")
    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Me.Close()
    End Sub
End Class